---
title: "YGL Gene Localizations"
author: "Orestis Ousoultzoglou"
output:
flexdashboard::flex_dashboard:
orientation: rows
social: menu
source_code: embed
---
```{r setup, include=FALSE}
library(arrow)
library(ggplot2)
library(stringr)
library(here)
library(plotly)
library(flexdashboard)
ggplot2::theme_set(ggplot2::theme_bw())
```
HIS4
=======================================================================
```{r HIS4}
df <- arrow::read_feather(here::here("tibbles", "HIS4.feather"))
p <- df %>%
ggplot(aes(
x = timepoints,
y = loc_probabilities,
group = names,
color = names
)) +
geom_line() +
labs(
x = "Observation Timepoints",
y = "Localization Probability",
color = "Shapes"
) +
theme(
axis.title = element_text(
size = 15,
color = "firebrick"
),
axis.text = element_text(
color = "dodgerblue",
size = 12
),
legend.title = element_text(
size = 15,
color = "firebrick",
face = "italic"
)
) +
ggtitle(str_glue("{df$genename} Localization"))
ggplotly(p)
```
HUG1
=======================================================================
```{r HUG1}
df <- arrow::read_feather(here::here("tibbles", "HUG1.feather"))
p <- df %>%
ggplot(aes(
x = timepoints,
y = loc_probabilities,
group = names,
color = names
)) +
geom_line() +
labs(
x = "Observation Timepoints",
y = "Localization Probability",
color = "Shapes"
) +
theme(
axis.title = element_text(
size = 15,
color = "firebrick"
),
axis.text = element_text(
color = "dodgerblue",
size = 12
),
legend.title = element_text(
size = 15,
color = "firebrick",
face = "italic"
)
) +
ggtitle(str_glue("{df$genename} Localization"))
ggplotly(p)
```
RNR3
=======================================================================
```{r RNR3}
df <- arrow::read_feather(here::here("tibbles", "RNR3.feather"))
p <- df %>%
ggplot(aes(
x = timepoints,
y = loc_probabilities,
group = names,
color = names
)) +
geom_line() +
labs(
x = "Observation Timepoints",
y = "Localization Probability",
color = "Shapes"
) +
theme(
axis.title = element_text(
size = 15,
color = "firebrick"
),
axis.text = element_text(
color = "dodgerblue",
size = 12
),
legend.title = element_text(
size = 15,
color = "firebrick",
face = "italic"
)
) +
ggtitle(str_glue("{df$genename} Localization"))
ggplotly(p)
```
RNR4
=======================================================================
```{r RNR4}
df <- arrow::read_feather(here::here("tibbles", "RNR4.feather"))
p <- df %>%
ggplot(aes(
x = timepoints,
y = loc_probabilities,
group = names,
color = names
)) +
geom_line() +
labs(
x = "Observation Timepoints",
y = "Localization Probability",
color = "Shapes"
) +
theme(
axis.title = element_text(
size = 15,
color = "firebrick"
),
axis.text = element_text(
color = "dodgerblue",
size = 12
),
legend.title = element_text(
size = 15,
color = "firebrick",
face = "italic"
)
) +
ggtitle(str_glue("{df$genename} Localization"))
ggplotly(p)
```
RPL8A
=======================================================================
```{r RPL8A}
df <- arrow::read_feather(here::here("tibbles", "RPL8A.feather"))
p <- df %>%
ggplot(aes(
x = timepoints,
y = loc_probabilities,
group = names,
color = names
)) +
geom_line() +
labs(
x = "Observation Timepoints",
y = "Localization Probability",
color = "Shapes"
) +
theme(
axis.title = element_text(
size = 15,
color = "firebrick"
),
axis.text = element_text(
color = "dodgerblue",
size = 12
),
legend.title = element_text(
size = 15,
color = "firebrick",
face = "italic"
)
) +
ggtitle(str_glue("{df$genename} Localization"))
ggplotly(p)
```